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z<D£7iz y z\<Dmm-\&tjr-?mm : &.!£m>i 1 5 **Aia^«*iB«« 1 2 3 hie 
feztitzx&ijmmz^yfr-T^mmmui 2 2<Dimir^^r^-^>mmzmu 

■n:i:i:J:oT, yny?A tffflflljg fc MJI^tt Sit § £ 0 

[0 0 7 9] 

[0 0 8 0] 

1 6 izx &&mn^&f&&km.<n&!im^Miz'3^xm.w~$-&o m 

1 2 14, «2EftE££j£ffil 1 6 i:«t ^ ^Sl^itilwMIf I^^t 7 n - f t - f 
[0 0 8 1 ] 

HHCftJ:^:, d Ojft9IKS^J£ffi 1 1 6(4, -fr:/ ttlEttffi 1 2 2 KiB 
mztitz*r-7)v-?-ymW.<7)y y -flli££M<&iiS L, tx^m Ltz y y -ia*f>-o©f 
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•7-;w-^>1t^^^i9aii- Uf-^S 141). ^L-C, P^ai^'fI^^#L Ut^v 
7S 1 4 2) , flXWLfc0fWParatt**«5cWfEHl*I^S^«:i|3Jse-r* Ut'^S 1 4 3 

) o 

[0 0 8 2] 

it^<bi»1-£ (^f7 7*S 1 4 4) o fir, ^TOt^-f'/ttm*-; <; -»ai*» 
felR^ WLTlfffilMfl*ai^fca»5j&»fc*iJ5£L (A^y7°S 14 5). itofy^- 

£T<Dy-7)\,-?->mwLzm'<tzm&izit > m^?zv')-m&w7fr-j-ymmz 
i&mmmmmzwM 1 2 4 k (xt^si4 6) 0 

[0 0 8 3] 
[0 0 8 4 ] 

jatts^i 1 2tf*r-7)v-+y<nn&m&*w\&i,, xmur-^miaui 1 4^-9-r^ 
Kit^wai^ 1 1 3. Mi&M&u 1 1 2*5«to f Affi*T'-^«jaiSPi 1 4 tzi <om&zti 
1 1 6-t>mi:-xmt)r-?M&tkj&&i 1 6 k «t n wm^vhtitzmmfr ntt 

[0 0 8 5] 

[Hifcfli 2 ] 

[0 0 8 6] 

> h £i£aE1-*Cl t^-eiSo L^L4i J f), fiJJB#j&*i&SELfc=r.* > Mi, Urfc&T'n 
^* 9 A £ £ L £ . m tz K ^fife $ *i ^ n 7 7 A I ii WM § ft ft 

^n^7A ft## £ l , mmmz x & =i * y h oMie £^ t-tzte 

[0 0 8 7] 
[0 0 8 8] 

^r/neiiicii, r^^h (jl— «fK«E«i*) J * r j 

[0 0 8 9] 
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[0 0 9 0] 

o 

[0 0 9 1 ] 

£ ^ £ if ib <o y n y 7 a m -emfr-t %zt&x~&2> 0 

[0 0 9 2] 

±, in i iz^Lti&Mtm&io&mz&tzTfcmmzwxim-ft^ztt-rztt lx 

[0 0 9 3] 

mmiZTF-fX n :<0ftit4igi2 0 0 li, lot, mWU2 1 0 tcJ: 

*fttaojfe+itt*'Srir<rfiE11-r*IE*«l 2 0 t**-t-*o tfJfM2 1 0 HC^L 
tz a. * y \$L$iM 1 1 7 0ftfc>t) K*jl> > h£jS*B2 1 1 £*iJ-£o 
[0 0 9 4] 

K + a^>h4t32 11li, K^j-> ^ h^SB 1 1 7 «0^-r^^tctJPx.T, =? ^ 
> hEArtS**«2 1 1 a tm-fZo Z\(Du*y ME A 1*1 2 llali, 3^ > 

MeX^7*n^7 Att»#S:R*^-C3->« > V ^fflffi U *ffctw^j*-J- & 7°u y=? Aft 

[0 0 9 5] 

i03>'/MEArt»t*ft2 1 1 ari ? 3>< > MBXtS"^n^9Att«l#«:«E*^-e 
[0 0 9 6] 

&3^< > h b t LTfltSo 

[0 0 9 7] 

hi 5f±> y vtz&WM 1 )* hizj$j&-?z'?us*-f-4 <vr- ?m&<?)— m*7F-fm 

X$>Z> 0 HHI^tJ:?i:, ron^ > hfeii^'JX Hi, Reflect ionListt 
/■ff T*£> *K ^"n^-r-f O^ti, > hSE5E^J*^*tI&i"*^ , n/-?-r'f TReflecti 

onlj ~ TReflectionNj frhffi$L%tl%> 'J X b X°$>Z> 0 
[0 0 9 8] 

hi 6- ui, 3^ > Y%z&mmzttfc-tz>-7v^7- j or-'-^tfito— w*^"tig-c 

REHi* ^ *y Y%^^mzttfc.-?Z>-?u/S7- J <D--mx$>Z> TReflectionlJ <D 
T-?Mik*7Kl,Xi$t) . TReflectionlJ (i 3 ^ > h * 7 - K* 

[0 0 9 9] 

Ztz, |16-2li, «&0|Ei£«i****4»^0 3^ > hfE&^J£K*J-lL.1-&7 p n^ 
x-f Or'-^»jiO-ffB=S:^-rig-C**o I^EU±, *lgfcOlE^fM^ ? &£it£-<7>3^ > b 
IE»«#»::#Jfi>1-*7n/<x- 4 <7>— mxth%> rMultiReflectionlJ Of- LT 

TMultiReflectionlJ U\ 3 * > bfEM i££f&SUi)-& 7 - K £ % 
lE^it^^SlJi-^^n^ > b*-7- K^^JOfegt. 3^ > ME^fliao^jO^m 
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[0 10 0] 

r [^^-K] , i, 2 j t&& 0 -r^^*»> n^^Me^fi^ i^m-m] ^l^ijg^ 

[0101] 

hi 4h^l^3><> meai*i^^^2 i i afD&m^-mjz^^^xt&m-f&o 

mi 7i±, HI 1 4 H^L^n^ > hEArt§»S|5 2 1 1 aOffli^Hl^t7D-f t 

- h-e^^o 

[0 10 2] 

|5j|2]K7F-fi -7 iC, ^on^t >- htiX\HWM^U2 1 1 a ti, n > > h <7)^tc<7) -f u 
7*7 Atfc4f#?>ReflectionList£i£5£ L Uf^S2 11) , Ref lectionListrt^Ref 1 
ection^-o^#-T^» Uf77'S2 12) 0 
[0 10 3] 

LT, JR^L^ReflectionOlfe**^-7- K£fflv>T«&#7nO:3> > h <hffli^3fe 
<D a * V Y m&iiLW. t L Uf7^S2 13UJ:Wt77 p S2 14) , 3&;fc5fc<0 

T'n^v Aft«#K:3> > HK*M*q?ft-t*3^S*»4:*iJ5e-r4 Ut^S2 1 5) 

oyn^7AttitOn^ > h ZKVk-fZ Uf'^S2 1 6) 0 
[0104] 

Lt\ 3> > hnm&tff&VlLfzfr&frZmfcL (Xrv7S2 1 7) , 
Lfcj&»ofc»<&fctt, »J£«J*fc3* > h ^-Sl^i-^ Uf77'S2 18) o fit, Re 
fleet ionListO^rT^Reflection^^taL/i^S^^fl^L t^f •7 7'S2 1 9) . 
OReflectionSr^aL-CV^v^^tzti, ^fy/S2 1 2 K^o T&ORef lectionO^ 
^r-COReflection^MaLfc^lcti, *IS:»TtSo 
[0 10 5] 

C<7)id^> .ItfJnjX > MEAF*J§8£*8B2 1 1 a Reflect ionList*fflv>r«6*7CO 
[0106] 

V y Kv- h ^fflv^:yo^7Aft#t«3^ > MEiE«(«Hov»TUi^"r4o III 1 8 it 

o 

[0 10 7] 
[0 10 8] 

EI 1 9(4, Kv- h i:ffl^t/n^7AttitO^ > hfi&«tt 

u/*7-4 <D—M"?&Z [Reflection 1 J <r>T- *$lit£fc LTJ3 *) , [Reflection 1 J fi 

[0109] 

1 8 IzmLitx* > h£jfim r^^Vb (.3.--fiEifcflltt) J C^tsyn^r^ 
ffiti, (a— VIEJE**) . 1, A) J £&&o 
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[0 110] 

tit. H2 0(4, K->- h^v>tyn^7Aft«t^)^ y ME&^1£ (« 

TMultiReflectionl J Of- ^ffit^TF LT & , TMultiRef lection 1 J (4^-7- K 
> ap< > b lEiEfSl^f t-rM^cofi^t = * > h «»J * - 9 - K9llfl[« t a 

[0111] 

1 8K^L£a^> hte^^it r [^&-!t] J UJtiE-f S-rnz-c-r-f <7>ttt4. \ 
-Jt] , 2, 1, A, BJ >&& c 
[0 112] 

ifacov^liiJEtSo IsJUKjoV^T, l~a^>b (n) J ^I^n^vMElM 
[0 113] 

[0114] 

[12 2(4. H2 1 K^Lfc&3fl*iSBIfc£»t*£3> > MEifi«*Wfi[flH««T'- ^ W 
— «Sr^-rBI"Cab-5o PIHK^f 4 9 fc, ^O^JT*{4. a X > h * -b 9 

mmmt ltv** 0 

[0 115] 

0!lx.(4\ ra^>h (1) J (4 r^n^^AiSJ *>-fc * y a > fc**|&U tettf4 T^n 
?*7A£J (D-k)l<frb2?rO'?We$>t) , |~a>yh (4) J f4 [7n 7 7 M 
L&S [ 1 ] -CALL"C0M0002" [ 1 ] J (D-t * v a ^C^L> fig 14 rCALL"COM0002"J 
<7) -fc Mt 0 £ij g "Cab 4 o 

[0 116] 

fttt4^tt2 0 0(4. iwj:d&ta:flifli#'y-^*fli^rje ! a#aia©3^ > me 

[0117] 

ttit4igt2 0 0(4. «*^o« ! a#J6Bitc**iS't--&-fe^'>3 >#ii»±#« 

[0118] 

t5J:^ i:t4o 
[0119] 

116 5(4, fijffl#gaxffli«:as:tt*v^3> y h^o-'WSr^-rig-e^So raeitt, fjffl 

fiHlEAi-^^?:^Lrv^ 0 
[0 12 0] 
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^tn^ h£fEA1-&o fit, leA^ti^n^ > Mi»US:» £ LtflL, 
#fcMit-^tTJ3 < o M^-^tt<7)^ft^i±^Jx.(«#<7)^^MiiJ^^i6Ti3^, TXXX 

[0121] 

lx&< tt«#£i?£j&LT& rxxxj ti±##$ns* f , rxxx-n^ 

[0 12 2] 

15iJx.(i\ 16 5li, TF 1 0 8 0 2 NJ -\<7)rM > b t LX Rl^IEfSilO 3 0 2 

1 7 J [W^ttfc*^] R^IEietlO 3 0 2 1 7 J <DfaW [ya^f 

•y -7°3 X(Dt&M-?7s ^coMffn v ^ (±' 0 3 / 2 / 1 7 IfcjEiSJ tibiit^LtV^ 

[0 12 3] 

86*815 2 1 1 a > > MBA^<7>7*n ^7 3 ^ V Y <) Hi U *rfcfc 

< c t -eg 1 § at r ffc* k# -9 is* * *1>§ k« <b -r - 1 are # £ 0 
3 ] 

[0 12 4] 
[0 12 5] 

3 H«-5tt«»^JK«0»lS«:^-*-«IBrn y ?mxhZ> 0 i^eiiifti«©fit 
±, HI ^Lfc*«fcra«l^«**fc^«lll«t=ov»-ctira-flF-^*#"J-ifci: LX 

[0 12 6] 

mmiZTjk-rx *> :«ft*t4is«3 o ot*> aij«isis3 iol 161JM3 1 o**« 

ffi-*-<&titl&*ieiJ«l8B3 1 0»wJ:&jB ! aojfe4 , iBf*4^<:IB1i't*IB*«»3 2 OtZfCtZ 
o SU1W8IS3 1 0(4, H 1 fc^LfcW»«Bl 1 0 * s ^ri-*«tiei5^»nx.r ^7 
J&SR3 1 1 K#a> > h£j£8|5 1 1 7 Oftfr 5KK + i>> YSlWlUS 1 2 

[0 12 7] 

Ztz, mmU3 2 0(4, 1 1 HjFLfcK1f« 1 2 0 75 ? *i-^lE'lt^^*px.T, £t*6#i 

alette 3 2U, b*i§7">^i^- Mentis 3 2 2 1. Ammmmzmu 3 2 

3 t Z^-f&o 

[0 12 8] 

Ltttt^ll^t), 7-n^ 7 A«E5?fil«i2«SI5 3 2 3 (±, yn^ 7 A«|« 
§53 1 1 ifiSLtiLLtz-fuy^ A«E5?«**rE«i-*fE«»T?*&o 
[0 12 9] 

K*a^ > b£j&3&3 1 2(4, aiM1fi^ffl^t7 J D /7^ftlt^4it^ ^ ^ 

i>iz^ -/ay? ^mmmmzmu3 2 3 iztmztitzzfu ? ? &mmffinzm^x zfv y 
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7 AnmwzoLtfiL-f&o 

[0130] 
[0131] 

M2 4 yn^5 A$Eg£j&3&3 1 1 Off j££^1"1tf£ 7*n |3^&&o I^Eltc^ 
ti^C, ^co^n 7*7 A$E^£j£g|$3 1 1 (i, r-?mmm?i7zU3 Hat, ^f- 
h ^ > h fi^JSIS^ 311bi, it tbWmU 311c^ B *E^&£K 311d^ 

[0 13 2] 

r- ? mmm 3 1 1 a a, micmmmm.mm.ui 2 1 ^fen^tL^^^if^ 

[0133] 

112 5 - 1 V?m2 5 - 2 fi, 7°n^'9 At^rBTIt^^t^a^-r^^^olgl-C^) 0 , S2 
5 - 1 (±, A V-XlHJ£7Fl-[g]-C£> 19, 12 5-2IJ, 02 5- 1 Ctf L^7°n 

7* 7 a v - x m h $ ti * 7° n >r v a + m if £ ^ 1~ H "C * * o 

[0134] 

HI2 5 - 2 IZTji'? «fc 9 7"0 7*7 AifWIflMR-eti, I$fi^:yn^'7A(OXf-h^ 

co rtfflj ic \ti=f-<D 9 7 £ m ^ * o 
[0 13 5] 

1?!)x.f£\ TMOVE 0 TO W— ERR — FLAGJ b^Xf-F^>Hi, 
< m o v e > 

<ref><constant value=" 0" type=" i nt" /> 
</ r e f > 

<def><var n a m e =" W-ERR-F LAG" /></def> 
</m o v e > 

^n^n 7 -7Acf^ifi:fI$ni» 0 
[0 13 6] 

g*l&7E£l$3 1 1 af±> rai^UO^R*ftt:Hfc*7'- *J *S»Rrt**fcie§v»M 

ft ru i:*aLTS«iD* td-u tu r7r>f ^/■f'-^^-^&ifom*^ 
ti£t>ti&7'-9} zmmm r 2 j n^nst-c^ngi d£ td-2j t-r& 0 

[0137] 

ifc, T'-^KJgl&SefBS 1 lali, l"7 r -f fr/r*- 9 & ^^^X^tw-ffi 

frft&r-'-^J fcMSIft r 3 J i:*iLtfl-iIDS: TD-3J U \^<D\^(DT-9 
J ®V»KflE T4 J ^ILT^ilD* TD-4J t^h 0 

[0 13 8] 

a * m it m (omwum 9 7 k $ *t * mg« <o —m * ^-r n -c i * a o 

[0139] 

HSC^ti 9 »I, ft TDATAlJ tt, yn^9i«fllIM"Cli<v a r nam 
e =" DATA 1 " />tmfrZti, KJ£ nj fftttiaZtlZ <var name 
= " DATA 1" data_priority="l" /><h*;b£ft&o 
[0 14 0] 

> hMMJSIS^3 1 1 b(±, r-^comm^itta^titzzftiif^^^m 
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[0141] 

d - 2 tcg^-r^T-'-^nWL<tA^<7)«#^x.^=ff it> ^y^-^o^amT ^ti 

lt5hsid£ rs-u t l, r^frw^o^ ^mfcmmzmf ztizxt lx s - 
i (nftm^z^ts i>cn] *m^m r 2 j c^iLt&iiD* rs-2j a, r« 

liiioifcj r 3 J i:55-iLt^iID^ TS-3J £-f£o 

[0142] 

fit, ^r-h^>Hm^3 1 lbti, 7*0^-9 A>t>rattlRt-ie^$nTv^ 
[0 14 31 

i-HI-C-^^o PHH^^i-J: ? TMOVE 0 TO DATAIJ tv^Xf-f^ 
> h t:ov^t(i, TD AT A 1 J izmmm r l J Wtra$ittv^^t\ <m o v e 

statement_pr i or i t y = " 1" ><D X ^:xf-F^> FWl^H T 

[0144] 

m.m&<D7>m^^xtt. tt^mmuz 1 1 c oM^^K^T^H^ti/c^^ 

[0 14 5] 

r^if^tcov^r, #^r^^ t^M^^tft-^M^-e^^o -^i ^^i=afi53 1 1 c 

mro i^jllCli, -fur? ^(DrnffiUfttzo^ri t^^^Td yn^'7A 
o4ffi^»I^£tii:o^t^ tub* ft n i><ntf$>z> 0 
[0 14 6] 

^?-yt;*tLTB>f^c7)M£tT^ 0 #!lxJi\ * ms Oft AM^iM LT 7°n ^ v 
A $ fix > *Ox*-*«Bfi*&l§li:£a^BKJRLTv*&»£\ 
S £ ffl v^ft A j^-cft AM £-otc£<ha6TL£^o 
[0 14 7] 

^0rift&£ tfrt&mxu., mmx%^-$:<Dmmi>ft 9o tiit^mfisi 

[0 14 8] 
[0149] 

Rit&HZli, COS t^tSS&S 1 1 c fi, nftiI^^Ttl>n^iyn77 
[0 15 0] 

i3oi±, zttbmmu3 i i c <D®fflm'Ezmwi-z>tz£><Dmwmx$)& 0 mmizm 
mmmt txmnL, z^it&^mmmzm^znfzitfr&m-fvyy^zmnbztn 
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friLAsXH < o 

[0151] 

|5j|l-Cl±, Rao&tf/n^ A%,b LT rAR RANGE P lj , TAR RANGE 

_P 2 J > rAR RANG E A lj & <£ V TAR RANG E_A 2 J 7& 5 g^§ ftT*3 *) 

, ittf>mmU3 1 1 c(4. CtL'bot t*&I^o^7 A*0E*^-CHtf1-*o 
[0 15 2] 

fcj3, rARRANGE_PlJi3ctO f [ARRANGE P 2 J (iJ^BrW&i 

i$rlT^D^7AT^^ rARRANG E A lj TAR RANG E_A 2 J 

itmmMZi ttb&imz'if ? y°u9'y2»x*>2> 0 $tz, t ttb&mmmz&m-t 

[0153] 

HI 3 1 (±, tttb^mU3 1 1 c <h £ ttb$m-7°v?7 At(DJ >5>y ^-7, {I/F 
) £^1-H-e&&o ^@WJ:^:, r/?7x-^tUi±, ^tS^^Ztf I/Ft, 

[0154] 

M£Jptf# I /Ff±, i <h *ll^o^7 At^to £ tnb^M<n^M% ($)xJ4" Mm 

ms<7>£ t*b n ) *t ttbmmuz 1 1 c ^m^-r^tznb^^ y^-xx^ 19 , mm 

[0 15 5] 

Sfc, «3fcK#-f-IR#I/Fli, i fcA&S^n^A^ftflaR*^ (0!)xJ4" 10" 

, " 104") *itfttia53 1 1 c nm%}-rz>tzib<D4 y ? 7 ^-xx$>n . mmm 

ft I /F(4, ^*f»3 1 1 c ^i^il^n^^A^^ft^ t § KttflJi"* * 
> ? y xx$>Z> a 

[0 15 6] 

£fci&«SBB3 1 1 c if£ fcWl7'D^7A^t4 t # K«?v<?> 

mmztitzm&mm%t*z&mt-r2> totf&tui. •ztibvm&'bs*? * - 9 1 in 

•To 

[0 15 7] 

£fz, flBfeK#-9-l±, it^M^n^^A^IIl^^^/^oMW^fft'l, 
»3 1 lctt, 7i-x£^LTJR#Lfctif?ft£JBv»-C. ttWI^n^AO 

[0 15 8] 

ni3 2ii, t ttt>^mym^yA<Dmftmmuw<D-m^mirmx^^o mmit, mm 

mtt £ ttb®M*ft n ni6Ii7°o7-7A^i:itfU ^^it^I^ff-) i 
[0 15 9] 

[0160] 

£ t*l=ai«5 3 i l cii, t-9 txy-- y V<nmmm-h t it1mZtitz7'ziy r 7 a 4" 

[0161] 

ifc, i ti61faiSU3 1 1 c (4, £ tft^mzTu 7 ? Aizy-u 7 yAtpfflmmZXJjt 
Lm, *it»!)«ii^o^7Ali, ^n/7A*PIM^liUw< 0 f LT, & 
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[0 16 2] 

T^liig^ft&o fit, lti6fIS3 1 1 cfi, t^TOii^i^ny-^AW^ 
[0163] 

133-1 -H3 3 - 6 (i, Z h£>>$m.~fu AtHto i t #>C0^- ;K7)#i] 
-C&& 0 13 3 - 1 ~~m 3 3 - 4 !i. ^MtfJ&i t ib<D)V- )V £7^ U S33-5iiO f 
EI3 3 - 6 «\ ;£#:#J&£ t^^-^^-f 0 
[0164] 

13 3-lli, rREADt^)7r^ ;H^7!|<7)MA 5 \ U N T I L %k\*<D$LtL t — Kc 

E A Djt07 7 ^^TBtOM^IItt^o J t^v^ tftcojv-^^^fo 
[0 16 5] 

HI 3 3 — 2 l± . r-tr* v a ><7>I*I^ S M< , 3 \i Z tO^^t^o, P^ai7C (_hf£-fc? 
[0 16 6] 

i3 3-3ii, rMo v Ejctfmmi, itxyc<DMs^-t-<rmcmmms^pjfm t. 

[0 16 7] 

@3 3-4l±, r(l)statement_priorit yF 3 " C^otv^ 
:fc£&'lJB&-r&o iOti, 8lJB&$ ft ^'O^^ ^< sequence 

aqtoil^iiJi^L^^tomfitt^'b-r (q t ti-?-<7)|*|^^#tr^:om^7lti-) o (2) 4 
tz, Z\<Dt <sequence ><0^14 q t O-fitrt 5 0 <7)Jt£-, ^ ft £ -g" if -fe ? v a > 
, ^^7^974^(i, !Ht3C (IF, EVALUATE, READft^#) £8lJ|5&1- & o 

^^->3>«ii, -^-waiTc oniric (evaluate) ^gij^-r^o (1 

) „ (2) ti, -%<DWLtfm.t> b tc < i'CM*fc i &57*n^5Ai:ov>Till»)jiLfi : -9. 
[0 16 8] 

13 3-5l±, l~7 r ;v^IItr^S7) ? * 0 , %<n>'&.\,Z)V--7i?1h V) , ;l/-7°<7)|*|^(7) 

£f?EirJ tv^fctlfx^o v a ><7>*#-£-ti, ^-n^l^^tli LTv^as 

^:int^>o J fcv^ J t#)<r>)V — )V&7F-t 0 
[0 16 9] 

H3 3-6t±, r^mo^g^^*BJ^g^4>#J!JPL^B-e^-r^o ^ilj^fi, " 

. " r-^-r^o ztz, i> o t i>±u<DmmmBfrbmM-f2>o mz.tf. in-reco 

RD. IN-DATAl^^ffMo J t Z t tb(D)\s- ;u^^i" 0 
[0 17 0] 

B^i§«gB3 lidit z t&^mxmmzftfz^u A*mmmz%:iiimt) , & 

<0B*SS^&£&3 l l d H J:oTM$ft7t:B*I^lf^t±v 7°n ^'7 AM^fB'lt^ 3 2 3 
[0171] 
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H3 4t±, B#M$^3 1 1 dOMS*|fe^i-^^*!)Oife^llT-*^o fflHUi, " M 
OVE 0 TO DATA 1 " tv^ MOV Ejclt (0) Sr^ifc [DATA 1 ] 

[0 17 2] 

::t% B^If^SB3 1 1 d f±> r<m o v e >< r e f >- ( 1 ) </ r e f >< 
def>- (2) </def ></mo ve>J-h ( 1 ) (2) KftA1-&o J 

t v> 9 B^fS •?• h i:> T< constant v a 1 u e = " - ( 3 ) " ty 

p e =" i n t " />] — \m%L (-3) ) J t^n BXmr-y-fl'- hi, [~< v a r 

n ame=" - (4) " />-* \m&L [~ (4) ] J B*^f>^l/- h^ffl^ 

tll^ot^i. [13 5 - 1 is Xl/m3 5 - 2 *<r>%<n B #b§7- > -fv - 

[0173] 

HJ3 6(i, ^n^7At>^ii:^tia^*So -/n J*MSL9l&& 3 1 1 (4, IbJEHc 
^Lt/n^^At^ 7°^ OitlSWff S:^n77Af Kit IS U IE» L> 7- 9 is X XT 

[0174] 

$l;L(i\ 1360 [1] t'^^ti^^tEND-FLAGii, -t * v a >fi <9 & 
«>»7 m^J^ti TlJ fcfclK H1360 [2] -C^ 

§n^^SlN-COUNT(±, TD-lJ TD-3J ^SCgiLtV»0^, S 

5K*± r 4 J £:&£ 0 ifc, H360 [3] t^JftJWR I TEili, 7 r >f ^AtBt) 

cwfcio-e, si?*** ru ttt&o 

[0 17 5] 

yj> hi,zmmjgmfm~£titz-7°u7'7^fpfflmm~nLxm3 5- 1 ~H3 5 — 6 

Lfci ttb<n)V-)],*mm LXt txb®m$:'{sn o 
[0 17 6] 

it*fi»3 1 1 clJ, @3 lC^L/:^ ^7x-X^wTUWiyn 
[0 17 7] 

lcli, H3 7 tC^L7ti fci&JftaL/n^ AO'J* h i;io'v>t, HI 3 8 t'^i'H^f II 
[0 17 8] 

-T£;b*>> it«!)fl|5 3 1 1 c tt, J^BrWfcffiSi: LTA R P K AR_P 2. A 

R_P 3 j3«tO f AR_P 4 fcJHfcUff L, ^flUiait LTA R_A 1 *3 i V 

A R A 2 £^t1"&o 

[0 17 9] 

ldli, 03 9 tc^-ryn^v A cpl^f LT[1 3 4, HI 3 5 — 1 is £ IK HI 3 5-2 

^^L7tB*i#x>yi^- h *mm u 040 k^-t b &j£1-*o 

[0 18 0] 

^ar/F«t3i2ii, H4 0 izm~rH*mmmzm^~c, H4ii:^t 

X ^^a^ 7 A|It^it^o 
[0181] 

±.&LX£tzX o fc, ^:^»J3T"{i, rn77A^M3 1 Id*, itiffil 

1 1 K«t »)^$n^#^*f1f#^7 p D^7A^K1f#^^L, £ JftftLaSMttf 3 

2 1 fca&*n.3-7n ^'?At B^mr-yfU- MBttfflJ 3 2 2 KiE«£*Lrt: 
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[0182] 
[0 18 3] 

^ <D X n &1S8co yn^'7A?- ^Ifir 1" S y -f - -> x -r a -cti , ^yn^yAO^I 
[0184] 

^S^ftUfcttaA^T*-* tffi^f-^ jo X "7"n ^"7 A^tttll L, 

[0 18 5] 

-e- <7>&m mm *%*&-r & 0 

[0 18 6] 

l^mtc^-r X ■? :ottit4)SJIt4 0 0 £>*ijflis&4 l o U\ HI fc^LfcfflUPfflS 

1 1 0 tfm-t zmtuizmtx v v b 7°m&wmmjcm$fu 4 1 1 1, yg^f? 

4 1 4 t^tt^o ifc, Mffi^MSIU 1 6<7)ft^0 i:^Iftl4Sa4 15^tL 
, K^^pt > 1 7«ftfei}i: K*a> > h£)£§i$4 1 6 ^^l-^o 

[0187] 

/* y v 3 i§fl*:fcfl¥*rS& 4 1 1 ti, v a ^SBiE WIS V - * *%k&&&, 

[0188] 

v a r- yxta* t* * 4 1 2 »±, /< ? v 3 yiEiEwi^i^mw^ 4 1 1 

3& s £j£ Lfc/-? y * v 3 -rfii#Hf <b . #v 3 -fTsf-v 7°z t 77-f n^A^ic^ffl 

Mm £ v 3/^7 y -/A m 7J 1f * L T ^|ft -f h JilflSt? *> -5 0 
[0 18 9] 

£#Affi:fc1f*RffliajfflU 1 3f±, v 3 "/.X t - y ~/Xltijj7*— ^itfiffipft 4 1 2**^J«Lfe 

ysT-^f'^AiBMi^ xmur-rmmui 1 4 ^^t^Att^'iffR 1 ; * h t 

[0 19 0] 

^-fuifyM.m'mMA 1 4»±, ^ttAm^tittftfflfflau 1 3 L £ v a £ 

U^Affi/j 7 7 fflt* v a rxr 7 ^aiti L, iffi Lfcv a 7* f- y 

^ttSLtv^ 7*a 77AO-I^«t^»I^5o 
[0191] 

tfc, i<0±S^n^7AJpJ5ca5 4 1 4fi> Jftffi Ur>' 3 7*7xf y yT'Pf^m Lfv>4 
7"0 77AO-t^St4^C, BfO f ttiLTV^7 , D7*7A^a-f ^ Uf-f 7*0 ^ 

5 A X$>ht%j<k\Z 7°n7*7A <7>— <b ^-t"* o 

[0 19 2] 
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«LatIM^4 1 5li, 7 f y a 7'i: ^ J ^ 4 ^& r □ ^ 7 A (OMIt^lli ^ 41 

A^J^g|54 1 4 « L y n ^* 7 A O-t i: ^ t^^fct t a' 7 f y 3 7*®M ^ 4 
J&1-£4Mg|$-C£>&o 
[0 19 3] 

, ^Affi^ffifRfflffiflU 1 3^^LtzXtHt}y r ^t£.m-7u?'7 A^lJ^g|5 4 1 4 
* S 4S L^: ^* 7 A w-1 i ^ ffl v^t f y s 7ilH^ ^ I b: J: o t , 
tt#»£j»®4 0 0(i, rn^7Att*«^tJPx.Tv 3 7Mi^»lt^fM 

10 19 4] 
[0 19 5] 

^C, V a yxr- y 7°Aai7J t"- ? ffimM 4 1 2 CJ: * Am7J*y^3C>M#JiICo 
v>-CffclEi-£o 0 4 3 14, v a 7*7 x y 7°X\£ljT- ?m&W>4 1 2 IZ «fc £ AfcBT^J^ 

[0 19 6] 

IHJU^^-T J: ? ZWa-fXTv 7°X&1lT- *1&\&U4 1 2 (±, A^fya^ 
iEWSf WXfiltffaB 4 1 1 L y v a 77BW«##' <b v 3 7'X -r y 7*(D v 3 TIE 

i£»«f««*ftJft-r* UT7 7-S4 1 1) o 

[0 19 7] 

fU, y'a^f y t 1 © v 3 7"gEiE#W1**R £ »W L T 7 r >f )\stfffiM.YPJ& i tz fiii 
l£-e#J *5 itt>*it^4 ri^j^fc Uf ";7*S4 12) , 7 r -T frtfyrMitJ&Z tzl* 

S 4 1 a) o 
[0 19 8] 

— yj, y r j )isfimm.i'pf£t tzit&w?m i oMxbtix^%:^m&i l zii, va-r^T-y 

7*0*?-TB#H7 r -i ^BlJBk^ftT^&j^S^SrP^ (7>x y 7*S 4 1 3 ) , 7/^^" 
MIS* 3 ft Tv> a f«7 r 4 )V*ftmzti%> 7 r ;u£:*iJth1-& Uf7 7"S4 
14) 0 

[0 19 9] 

-e-LT, y 3 7X f 7 ^nf^ffi $^i^7"D7-7A ©i^fitM^ W# L (7-ry7° 
S4 15) , 7 r 'f JK:*f Lttl&*«:ff ^ WSWSrP!^ 7 7*S 4 1 6 

) , 9 W2>£Jt£-K{i, f077 )\s*\&t)7 T << frtmfc-tZ (7>T-y 

7° S 4 1 a ) o 
[0 2 0 0] 

-73, 7 r -f JW:*frL-C#£i&*«:fT ^mv^Cll, 7 7^i:jiiLTi*:^ 
*fir ^^^S^P^ Ury7*S4 1 7) , K^a**^******^-^ 
f®7 t >f ;i/£A7J7 7 -Y ;v<h#U^L Uf77"S4l8) , l^^^ftoi^v^ 
^•tzti, ^co7 r <f ;w^Affi7J^ L iEI^-fa (7t7 7*S 4 19) » 
[0 2 0 1 ] 

:<7)y 3 77f7 7'AtB7ar y -^fflaif|S4 1 2 (±, 5> a :/ffi»J**Ht«*3 
«t TF~fu / 5A«J)iH)fffi[t*fflv»T7 7 -f ^75 ? A7^l-^m$ft-CV^(7)^ai7J^ftffi$ 
ftTV^O^^if^flJ^-t-* i t K <fc oT, &v 3 7*7 t - y -/-Q<OV a 7*7. y- y 7*Ai±J7J 

[0 2 0 2] 

^#xm*««}mai»4 1 3i:uy'3 7*^ LT<7)7T-f^Aai7j«7£^a 

Wftka#«*=ov>T»W*-*o B4 4I4, £#AtB:*Jl*?&fflttl6&4 1 3i:J:l.y37^ 
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[0 2 0 3] 

RH^tJ:^:, d ©^Atli*« ffcjtitB£& 4 1 3 ti. ifi^ya^fy^ 
I^y a -TTstv -ft L (Xf 77*S42 1) , fJ^*??^^^^-/^^ / 7 
7'-ef% A,-ev>&7^5^£P'<& Ur-y 4 2 2) 0 
[0 2 0 4 ] 

^■co^^:, ^(7)v 3 77 7- y 7"C**&7 r 4 )ls$:m.A,X»^2>m ^7?^H S 

77^vtt, ^o-e©7 r )i/&^maMt-tz> (^f-y/s 4 2 4) 0 

[0 2 0 5] 

fit, ttt7 7'fil'$-e©y3 7'^f 7 7'ffl^-ei^»*i'< (77 7 7" 

5 4 2 5) > ^y 3 77f 77*f%77^^f^U^^i:ii > ^©77^ 
)U%lirt)7 7 J frt U fr^>*<D7 r ^^#BB^<h-r^> (7t77S 4 2 6) o 

[0 2 0 6] 

fit, 7 7 f ^) y a 7*A f 7 7*t|IJ ^ L T (7f 7 7"S 

4 2 7 ) , ^<Di? 3 7*Xt y 7°^nM.7 r 4 )^£%\mLT^Z>m£l<il±, 3:<n~7 7 4 
ltit}7 7 -i U ^of©7 7 -Y^^r ffib't & (Xf77"S4 2 8 

) o 

[0 2 0 7] 

fit, v a 7'7 -r y 7°75 ? ft||- v 3 77 f- y 7"C* & £ (7f 7 7*S4 2 9 

) > v s 77 x y "f-Q & i± „ mm<vn0. V a 7 Xt- v 7°£>k<n v 3 77 x -y 

7 1 L (7r77"S42a) > 7f77S 4 2 2 i:I»), v 3 77 f y 7T& 

[0 2 0 8] 

^<7)j:^ic x -o£#Aai7>lf^}tt£ti£IU 1 3 ifi>* y * V 3 7£:# t t TO 7 7 << /U A 
ttS7:^*iJ^i-^C tCiot, ftit4iii4 0 0!±, ^7fya7^A^77^ 
ft/ 1 &jj ~7 7 4 )V £fEi£ L fctt***f*PJ&-*- * £ fc **"C § 4 „ 
[0 2 0 9 ] 

£g7"n7"7Afij^|4 1 4 la^a-r^f U -f -f WM^M<n^M^-M^^>^X 
n^7A«t^C, i-T-^f 'Jf^ fcOftfii*— ttWft^n^^ a^I^LT7 
[0 2 10] 

III4 5U\ a-f^Jf^lWMlfI^^t7n-ft-K**^o I^IHItC^: 
till:, :w-f-f U 7M Bfc£1^3ti, t f , -&fab LT<DXt}7 7 4 fr^Wt^'SLA. 

tV^y a 7'7x 7" y 7°*ft0.~J a7'7f 7 7"^^^ (7f 77*S44 1) 0 
[0211] 

fit, A7J7 7 >f JVS-^tV^ya 7Xf7 -f\t3-~-7-<i 'J 7" 4 -e***»5j&»*P 
(7f77S 4 4 2) , Aj37r^i0[^5v'3y*Xf7 -ftfx.-T 4 'Jf-ft? 

6 v > tc <7) 3 77f y -fififtTf ai L r £ 7 n 7 7 A £ ±^ 7n 7 ? A -f 4 
(7f 77S44 a ) o 

[0212] 

£tz, 7 7 y 3 77f 7 7"^-f ^ 'J f ^ t^^^Cii, -5- 

<7)v s y 7?>£b;£j7 7 -f ;Wi— o/ftfC***^****'* Ur77S 4 4 3) , 

-o/it T -C&v>i#£-Kf±, jl-tM U-f-f I^^SO^^^ti-^ (7f77S449 

) o 

[0 2 13] 

— 7^ f ^) y 3 7"7 f 7 7°OHii 7 7 ^ itt^ ^Cii, fOy'3 77f 

•y 7^t>^07 7 -f ^^'111^^^3 777 7 7*4 L < (J^Ty*3 7'X7 7 /i-ewilt? 

. ^7 7^ Jl't AS Ltl^ y 3 7X7 7 7"^ 3 7"77 7 7"U (7 7 7 7S 
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4 4 4) , iff t y a /^f 7 Uf?rS 4 4 5) . MMt 

-f S 4 4 9 ) o 
[0214] 

:tit:jtat, W t i: ^ y a 7*7; f 7 t 5 ^* 4 i: (± , WtiOya/Xfy^ 

%tt%.t Ltz3--r 4 mmmm^ (xr7^s 4 4 6) . ^t^iya^ 

f-y y-C±^-7°n^*7 A^l#«bti^^o7t^^p-< Uf7yS 4 4 7) , ^T<D^y 

Uf?yS 4 4 9) , ±I7*d 77 A«f>fi/; y 3 7X f ■> 7*^^^ 
K»±, ^T^|y 3 yxf 7 7"fWjJiiigf *i t6T±f 7*n y*7 A t fl, (Xf7 
7°S 4 4 8) o 
[0 2 15] 

'Jr^^t^^CioT, fttttMM4 0 0(t A7fy37-^il7"n^7 
[0 2 16] 

fttt4t^S4 0 0 y f y a /^(Oilitf o^acov^-^ 

TSTEPlJ ~ TSTEP4J ^f>M?n^^7fy3 7*^Ltv^ 0 
[0 2 17] 

^Ofaj-Cti, ifft^y'37*^f 77* TSTEPlJ f7*n^5A TPROGAJ * 

ffr/aii-o tprogaj -hmtm-t&y r J )\<t lt, n no u t; 

7r^;V TDENPYOIJ HSKfc TOT 0 1 J C77^ [WORK 1 J £#1^ 
TTV^ 0 
[0218] 

■Cinii, 7*n/5A TPROGAJ rtf, TlNOlJ, TOTO lj fcv^Mt# 
BBL-Cv^AtHTJTfeC [DENPYOU t TWORKlJ £ v> 

7 i <h ^MLtv^o ~7 t 4 )V<DT ^-t^T^fttiD I S P fcff yt - * -CfEi$ 

LT&O, SHR^<bBE^<07r ^;K7)M<^*#, (NEW, PASS) 4 <b Uf m^lffi «: 

[0 2 19] 

4 > y'377f77STEP2-STEP4t*t mU<D 7r^ ;K7)#J^ £firo T£> 0 
„ STEP2*J:a f STEP30DISP^5>-^0 (OLD, DELETE) t±, BE 

[0 2 2 0] 

04 7(1, @4 6i:^U;A7fya ytZftfrb'* v * v a :/E«Mfl*:fc»*f« 4 1 
1 ^4«t^^'7fy3 7»fM^ftll-e*l.o ya7^t7 -/AffiTJ-f*- ?}ft£BgB 
4 1 2(i, r Oa'7 f y a 7dtffi«^fflv4y a 77; f 7 7*ff If 4 AffiTJ 7 7 ^ 

[0 2 2 1 ] 

134 8(i, HI4 6 K^L^y^v a rfE&^£/££:ft.£y* y a 7^©j51Ij« 
I^tlt^^o l^iC^t iii:, ttItMI4 0 0!i, y^y-^S^rftwATJ 
7 7>f)l/tU TDENPYO 1] £fflaiL, ttiTJ? r )Vt LT TSYUKEI 1] £ 

mm uv»s, 

[0 2 2 2 ] 

£> "7 T -f fl' £$fc"9 SliS^i^i 7*n^7At LTPROGAiictLFPRO 
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[0 2 2 3] 

_h& LX £ tz X 9 fc, *^M^iJ 4flt /< y ^ v a -/|BiEWSaiX»*f «P 4 1 1 t5 ? /n* y 
^ v a ^IBaSBI V-xfr v 3 :/fB*Hff« * ftj£ L , va^r 7^A^r*- 

* ttffilB 4 1 2 v v 3 rffiiEWSiflfXfff^ffiB 4 1 11: J: »9 ±J& S v * v 3 f 

7y- y XthtS r- 9 4 1 2 i: J: 0 ft* Siifc^ 3 y^f ? yAitiiifti: , AfctS 

^r'-^amssi i 4tf$LWLLtzx\&t)mw) 7 v t zm^x, yar^HtAms 

7 7^^^U ±S^o^9Afl56«4 1 4^£#A&7^f#RttltB£|U 1 3 ia (9 ft 

[Uttsfll 5 ] 

[ 0 2 2 4 ] 

i&m-h^vhxh&o ^rzx\ &niMW5xa, t>v^>^7^A^M0.tLxmmm^ 

[0 2 2 5] 

tir\ 5 i:i^ftit4iiI^)«i:o^Tia^t 4o HI 4 9 it, *mMM 

* <r> mm * mn * * 0 

[0 2 2 6 ] 

iBjHK^i-ct ^ ^> - <Dj±mwt*iLf&mw: 5 0 0 mmu 5 1 0 wnus 1 o&m 
mirzffiWL^mmus 1 0Kj:s&3«3fc*tt*&^*iEtti-sKiM5 2 otzm-tz 
o mmu^ 1 on, an:^Lfc«u«ri o^m-t^mmmzm^xmm^mi^m^u 
51 it, mMm&7*-9£.mu5 1 2 tzmt, v**.* > v uli&m. 1 1 i<D\xt>^ iz 

K^jx> > h£/&^5 1 3 £^-f&o 
[0 2 2 7 ] 

*tz, umM5 2 on, mi K^LfcEtssi 2 o 3ft*^ri-*ffiMu*nx.T, jSM&& 

tit$IE1Effi 52 W T If f&§Et§gB 5 2 2 , HMil^-r*- 9 SEffffi 5 2 3 * 

[0 2 2 8] 

®M5£*H£«¥#f8B 5 1 1 {±, ® ffi If <^ii^, ^HMO W T •> Ht^t, II 

[0 2 2 9 ] 

®M3i#it$RfEit^ 5 2 1 1±, iffl£i#»*f^5 1 1 izx n £.mztLtzmmmmmn 
*tm-tz>tmwx$> *>. u^Try vmmnmM 522a, mm^m^mmu 5 1 1 \zx 

[0 2 3 0] 

IH5 0W\ M^HfliO — WSr^BI-CiSo I^IEUc^-r «fc ? W7*H*fR(±, 
TLAYOUTJ t TLAYENDJ ORB KJgfcSftfcfll *U @Mil#it# 
i±, D I S T5:tC «fc oT^£*L*:1ff mfrt>$Lj£ZtlZ> 0 
[ 0 2 3 1 ] 

H15 1H, HffiiSS'lf^<7)-f!)^^1-|l-e^^o RHKgrf-J: o £<*>HM«#Ht*ft 
f±, il#7C®Si:, m&&ftt, IIMt S&&a8Ufc**tJSS-£fc1t*^*So 
iOHI-eii, il^TC®® TM0 5 0 0 0J (i, rswftts=ij oiis^ftco^ t K TM 

o 5 o i o j <7)®ffi^ii#t, rs*?Ma= 2 j (Dm&tkftvji) tc tpgooou o 
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[0 2 3 2 ] 

mmm&r-9§LWLU5 1 2t±, mmfcmwmftus i i \zx <o±f&^titzmmmum 
m.t, ^mmm^ui i 6^x v±j&ztitzyimmmmw.t£m^x, t^oii^g 

[0 2 3 3] 

tzmnm&r-? zitm-tZo 

[0 2 3 4 ] 

MM*£1f^ ? &o£<h-f £ ®MBrt ? ±ta£|$5H;& <9. r®ffi A— ® ffi B — "7°n ^'^ 
[0 2 3 5] 

£f£i£U 7fe<7)®Mj2#T"*— 9 t"7-yL> E15 2 H^i" J: ^ ^MMil^-r'- ^ ^^)55c-r 

£ Q wix-tf, -fur? r << frx^<om£&&rf&z>m^, %<Dmmm&r- 9 

t&t>*tX r®ffiA^llffiB^7°n^7AC^7T^;i-Xj v> -9 ffi titf&^tf&o 
[0 2 3 6 ] 

[0 2 3 7] 

K+a^ > h£j££K5 1 3 WU 55LI«t^M^f>yn ^7Aft#f^4St^ fc t & K 
, WffiiS&igT'-* £®Mig^lHi: LTitf£tf>^K^mLT®®«&III#££j£-r£o 
[0 2 3 8] 

05 3-114, 0gfc7F-rg|-C*So Plll-e(i, Wxtf niMO 5 0 0 

0-IIM0 50 1 0-7'd^7AM0 5 0 4 0 -MO D^y J - 9 D B J t ^otztilti 
ZtfLXL&o itz, Hl5 3-2ti, MMM^m^m^^^mX^ *) > :^Jtli, 
MIiflli:7'D 9'y Am^tfMtb&t jiTv^ 0 
[0 2 3 9] 

o 

[0 2 4 0 ] 

1 0 2 4 1 ] 

ifc, :OK+a^> h4S»5 1 3 ti. ®®5e^ffcjP#fS& 5 1 1CJ: $L$L$iXtz]s 
[0 2 4 2] 

±^Lti/:J:M:, 5 "Cli, HM5&BH*«¥*f«B 5 1 1 rt s ®®;eiS#^£>®ffi 

*&ffitfft£&j£U. ®ffiil*£r-*- 5 1 2 ri*®ffi£ilfls#*raB 5 1 lCilM? 

h^jssR5 1 3 tfmmM&T- * t v&j&ztitzmffim&m7*-?£mfc<DMjZ: 
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[HitCT 6 1 
[0 2 4 3] 

/n^yA^Iftl^JEIt^f^cii, ^Jfctffl l x*fSLW Lfzti:m*£.f&mm 1 0 0 
tf*kl&1r & -f n $r 9 A ft«#7^$j-C * * ** , . y n 7 9 A 0#L3$Eg £ 1EM L fc f£tc x -f 

d ^ v A ©Of m fll jg A ffi # tit M# ^ HMffl £ it H t L T i" £ 

mko^trw -*-<&<> 

[0 2 4 4J 
[0 2 4 5] 

mm^7jk-rxo ^<?)ftit4^ii6 o oi±, 3hji*|]§i$6 lot, suf®^6 ioia 
^^soitif^^^t'^isii-r^fE'it^e 2 0 t «r^n-* 0 tw«i8&6 ion, mi c^l 

tlWi 1 0***-t*«i6a5^tJnx.r^#W«^a5 6 lit, 6 1 2 

fc£*TU K*a> > h^jSffi 1 1 7 0ftt?»)ti K*a* > h^Jfi»6 1 3 £*1"£o 
[ 0 2 4 61 

eitffi6 2oii, mi ic^L/wifi'itSRi 2 o^^-^ie'ti^tc^px.r^amit'if$RiEit 

1 £^r-r& 0 

[0 2 4 71 

3SSB *y^-f>«*E*»6 2 1(4, *rfl/-^>ttf#SB1ifflSl 2 

2 7&«aEtti- * «* k jn x. rffijs.it * tan * 0 

[0 2 4 81 

fei|j|4^!5 6 1 2(4. ■9--7 , ^-f->1t$gieH^6 2 1 K EH S ft 
or»5e$ftfc««Sr«.a«jS««aB*«6 2 2K»«3ftfc£®*©-*:/*-*-:'fll# 
[0 2 4 91 

-T&;b*>. feMiSffiSUeiSffi 6 2 2 (4, £J&*K»MSftfc-*7;i'-^:'«#R*iE« 
[0 2 5 01 

K + a> > 1 3 (4, je.a«R«#*^rn^9 t t 

, i&mmi&ti&mmwe 2 2 (ciE'is^ft^^ff^o^y^-^^ffi^^^Mttitm^tb 

[0 2 5 1 1 

^K. 6 1 iwjai$Ii:ov>tiaifit5, 15 5(4. ##«3tej&ffl5 

6 1 l oM^M^-r^n-^-v- ht*5 0 IWHHK^I" «fc n iz , <?>$£#-|f 
6 1 1 (4. ^u^'7Art07'n^7A^, -9-r^-^->^^if^flX#L (^x^ 

7*S6 1 1) , JDtffLfcfltfftfcTcK. #»«**#«[ LTMJ£«**t**i"* Uf-^ 
S 6 1 2 ) o 
[0 2 5 21 

fU, ttJSIff^Hffcftfc^S^fc^L Ut77*S6 1 3) . ffiJEIff&Wbft 
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[0 2 5 31 

nhntzm&m^^^K-^ymmmMs 2 ic^r^-^if^ft}jni-&-t^ 
i o x. <&mmikm ^m&m m £ in x. & - 1 § & 0 

[0 2 5 4] 

Mfftit^^ 6 1 2 coMa^JllMlco^Tl^H^i-^o @5 6i±, Mfifjt£j&g& 

6 1 2(±, •9-r^--f->tffRieit^6 2 1 H|5'lt$n^-9-r^-^>1f^^^f^tz®^ 
U Mft^ilf MUcSB 6 2 2 Uf7^S62 1) 0 

[0 2 5 5] 

fit, ty->3^^*M, fiJffl#5&*&#:fc^O:*7v a >£*&5eL-C^S 

"frr*— f-^OfffifcftfctftSfJL (Xf77*S 6 2 3 ) , M*Siit«$RfE'ltM 6 2 
2o-»j--r;w-^>tilflltcftSpi-& (Xf'?yS 6 2 4) o 
[0 2 5 6] 

^ Uf7/s 6 2 5) , mmm-h^ft-fur? j,<D3\mmmmm<v*7~y 3 ym^L 

"CV»*#^twl±, t^tgLTi/^7n^7A?|t^W#L (^f7^S 6 2 6) „ MS 
«jt««IB«»6 2 2^r^-^>««t;3|«[««S:ftJjPi-S Ut7^S 6 2 4) „ 
[ 0 2 5 7] 

(Xf 77S 6 2 8) . fUffl#75 ? $)Jffl]^^(7)^-^v a >Sr*&3gLTv>-SJ»^Hf± % v> 
> ^XO v -V > 7°3t<7)tf m*m% L Uf 7^S 6 2 9) > 8L3flli£titf&fB1«SB 6 2 2(7) 

[0 2 5 8] 

(xf-yyS6 2b) , mm^^?°)i<-^yft<nx<Dftm%m7f;<v*-7y a y%t% 
s6ltv*-5»#»cj4, -^y^-^^rt-e^com^ ta^j, m*. tut. ft a, 
, -e-confej o7iic^iLti[^i[i Uf^s62c) > tekmrnfemmmu 6 2 

2O*-/^-f-^««H«*80OS:w»[ i S:fiHnii-* Uf7/S62d) 0 
[ 0 2 5 9] 

dcOidK, :oMfIM6 1 2#\ -9-r;u-^>ffifR|EtS«|56 2 1 icIHU^n 

o*<^-7*y 3 ymmzmvtzz. nzxox. ty^a >ftmti<r>9mm&m* 

[0 2 6 0] 

^tc, ^n»J6 i:#sftit4tti6 o o tf^j&t &*&mm&m^^xmwir & 

o H5 7- 1 i5 J; C^m 5 7-2(±, Mt#^i[21 ^Ml-^^a^n ^7 A *^-f|2|-C*S 
o 05 7- 1 {i^tB7C<7)7'D if? A£^U HI 5 7 - 2 liPf ffi&O ^ 7 a £^-f 0 
[0 2 6 1 ] 

15 7-li:^tJ:^:, l^ffl7C©7*o/9Ali, /oy7A^PR0GA (PRO 
GRAM-ID PROGA) »K R E A D - S E C T t M A I N - S E C T <o~ o 
«t^y3>*tt4. MAIN-SECTIi, P R 0 GW&nf tfffl U H 5 7 - 

2f±, PR0GW^LTi»4o 
[0 2 6 2 ] 

H 5 8 U\ HI 5 7 - 1 £ J: tFIH 5 7 - 2 Ktf Lfc^n A^£>£j&$ ti-S^li itH 
c7>— 0!l£^1-H-C&&o I^Hl^iSV^T, SECTION (lfg) -SECTION (3 
Jfl) OJFiJtt, ^0^7 AOP^ffiflfcgfc^U WifrWO 7 r 4 A/is J: 7 4 
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[0 2 6 3] 

AftftUli, £<Z>$&aHfcg|g»±, PROGAIi2fg©-t^ va >t LTREAD-S 
ECTiMAIN-SECT^f L, READ — SECT (± I NF I LEZXftV r j )\< 
UTtffltSIt^LTt^o $£>K, MAIN-SECTHCALLjtPROG 
W£Pf l/m LX& •) , PROGWrttOUTF I L E Zttift? r 4 )\s t Ltfifl,ii: 

[0 2 6 4 ] 

±m LX & tz I n ^HJfe^l 6tli, fHMt 6 1 1 #j»#if 
[0 2 6 5] 

^i-^^*,, MfliiiUKfi, w&%v>^7)v-+y*^xm^tzx\&ftmw%M&.x 

7F-£tiX\,*2>tzib, &%^7*fr-^>tfTitL<D^y*)is- + yi>&)6XT?-txlrZ>Biifei± 

<d h h x ffi ft -it mco mm £ m-M k 1- * - 1 ^r* § * 0 
7 ] 

[0 2 6 6] 

[0 2 6 7] 
[0 2 6 8] 

iBjm^^-r «t -5 :^tt#iMit7 0 ot±. tij^^7 1 0 tmm.U7 2 0 1 

i-^o 10 11, [115 4 K^LfcW1iP»6 1 0 7j**i-*«tB«PHj!nix.T||fi 1 n^ti| 

«U5Mfr8&7 lit, *tT«*^*«7 1 2t*tL, K*i^« > h£.f&U6 1 3^ft^0 
K K*a* y h±f&U7 1 3 £*1"& 0 Sfc, K1S^7 2 0 1J, HI 5 4 KjFLfcE«*R6 

2 o om^-ih sreissb 6 2 2o«;fc*)t:ft j a«3a««Eii«7 2 1 t 

[0 2 6 9] 

1 2 izm-To 

[0 2 7 0] 

it«IRE«SR7 2 1 (±. «LS*ji1* «E*fflJ 6 2 2 **E1i1-*fl| Si:i«x.T^t7^-f 
[0 2 7 1 ] 

. tea»siii«iEiiBR 7 2 \Ki^.zixtz&frrtmmir<F>*r-7)\'-*>mmfrh, fe$Ht 

[0 2 7 2 ] 
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?~'lff&ft?#r£& 7 1 1 ii, -fv?7 Ato^f n yj&«***»S*»«:fiJje-t-* (X-ry^S 7 1 
1) o 

[0 2 7 3 ] 

Uf7ys7 i2), m^Ltzmffmm^^y^-^y^t t * tr^ff «#^is«p 7 1 

2 Uf'^S7 1 3) o — 3?, SHffny*»4v»»-&-JC»i, ^oiiiii^^Tt 

& o 

[0 2 7 4 ] 

^tf««^*»7 1 2 60Ma^Jl|StCov^T|^B^i-^ 0 i6 lfi, HfrtitfR^JSSB 

7 1 2»±, £frn^««j»#M»7 1 1 h-*i-y*)\/-?-> ztmr mm* % WO 7 

7-S7 2 1) > ^tt^o7j^r;U-^^^^ffiv--CMS^1t^ieit^7 2 1 £1&5£-t& 
Ur7 7 , S 7 2 2) o 
[0 2 7 5] 

fit, MSfllittif «iE1SIHS 7 2 1 ^<b-9-^;i"-^>**^-C^^j&»S^*»-< (^r- 

-77°S 7 2 3 ) , *7'jb-f> -c k t± , -eo-y-r^-^^o^sif^ian 

f77*S 7 2 4) o — -9- r ^ - > £ & 75- o fzt§j&^ it , ^Olilil^ 

[0 2 7 6] 

fcttffiU ^tTW#-fr*»7 1 2 75 ? -9-^;w-^>'<7)|ltf 02&H^o%>T$&SfiSjilIUC:J3tt 
&-^y;u-^><7)ffit£fe5Hti)-£ d fc K «fc or, fe5Httt<D&&»itBlfc£j£-r&£ 

[0 2 7 7 ] 

•^H, 2f:^jfc«7Jw«4ft»#^ia«7 0 O75 ? «i-^^St»it(ll^ov>Tfji0^i-^ 
o H6 2 f±, HI 5 7 - 1 £«t trH 5 7-2 H^Lfc-^n if^Afrb £fi%> WhMM^LWi 

[0 2 7 8] 

Ibjhhctf-t j: 9 zoi&mmTfcm-eiu READ-SECThMAIN-SECTi: 

[0 2 7 9] 

. READ-SECTt:ii, l~A7J I 1. ft* I 1, ft A : U t ^■otzfrMWlXr'- h 
[0 2 8 0] 

±i$L-Cl/:J;^:, *^ifefll 7-Cii, H*t d ^fit^UBWSB 7 1 1 ^Hff ny^itL 
T^*-*-><alSfirlHl&£ittmU ^frtiHIteJSSB 7 1 2 7^frn^«#J**H»7 1 1 

u «t «) fflai £ - > mnmmz a^*v> -cfe3-»t l tea* jtut $u£itffi 

7 2 1 KffrJjnU K*a* > h^««7 1 3 75 ? ^=ff 7 1 2 Hi Gfefl-Wbflfc 

[0 2 8 1 ] 
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[0 2 8 2] 

\ y -fLtz *) -th z. t ^pitg t -r h z. t i £ Q 

[0 2 8 3] 

y- y^fACov^Tl^t^o 
[0 2 8 4 ] 

m 6 3 (2, ^^kMffl 1 - 7 iii^^ttitilt^n ^7A^ifft4 3 > tf a- 9 zsX-r 

1 t> ##815 8 0 1 ^<b<7>J£^K<fc t)i^H8 0 2 a Kit $fc£ft^1-& X 7° U-f 8 
02t, ;O3Vh'a-^->xfA8 0 0 i:i*«WA^Jt4fc*© + -!i?- K8 0 
3 <!:, f^7*l^f 8 0 2 W^II8 0 2 a ±tf>ffife<Z>ftS v <y X 8 0 4 t 

, LAN 8 0 6 7*y h7-y* (WAN) i:Mt^LAN^^7x- 

Xi, <&*[i]ii£8 0 TCg^ti^fAt^tt^o L A N 8 0 6 l±, ften> 

t'a-^WfA (PC) 8 11. -9--/* 8 12, 7'J >9 8 1 3 3>fcfi-*-> 

[0 2 8 5] 

H6 4f±, H6 3 K^Lfc:#f$:gfc8 0 1 om&ZTfffl&ifeT'v y ^IHT^^o 1^1 
HC^ti "9 C co^#:g|? 8 0 1 tt, CPU82 It, RAM8 2 2 t, ROM823 
fc. /n- Kf^X^ K7^f7* (HDD) 8 2 4 t , CD-ROMK5>f 7*8 2 5fc, FD 
K7^78 2 6 t, I/0^f>^7i-^ 8 2 7 t, LAN'f >^7x-X 8 2 8 t 
fA8'2 9 t %m-f& 0 
[0 2 8 6] 

, 7Uy\£jriX9 (FD) 808, CD-ROM809, DVDfU7, fti^r* 

x 3 y tf a - * s s 7- a 8 0 0 iz j y x h - )v $ 0 

[0 2 8 7] 

3b-5v»(±, roftIf4)S7*n^5AI± < LAN0^7x-78 2 8 ^LTii$ 
1 2«f"-?^-X, i^^yifx-^yXf A (PC) 8 1 lOt-^ 

o tc -r y* v-)v^tiz> 0 

[0 2 8 8] 

LT. ^y^F-^?tif;tt#t4S7o7*7AlJ, H D D 8 2 4 HIE1S$ ti, RA 
M822, ROM82 3 &^£fUffi LTC PU821CJ: O^tf^ti&o 
[0 2 8 9] 

ifc, **iitfi, COBOL-eiSf&^n^yny-^A^^tfc^^M-t^Jf^ic 
o^t^ L£t^\ #f§HJ3Jicmc|^$;}'i& &0-CJ2& < , FORTRAN^C^t^ 

itno 7 n y 9 5 y 9 mmx m% zntz-fu?? mm * £.&-t m& k & « k ia 

[0 2 9 0] 

(#IE 1 ) V-*7n$r9 A^»ffLtftit^«t4ftif4i7*0 7*7 U-^ot 

ifev-7s7"n7*7A^(Sf LTiv-7>7°n^7A<7)7'n^7Affliiiiltf-^A 
m yj t £ M M cs 'It £ A tB ftWiitlf ^ £ £j£ 1" & A ffi * ttfl* itffi^^M fc , 

m LTHtffBV-X -7*n y-*7 A^Mtlffi #££j£-r &#L3m^tit «£j£3Mai , 
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m la&sm^it m£.j&^m k x *> $ ti tz^mmmm m * m v » x m ie v-^^d^ 

[0 2 9 1 ] 

(#IE2) lffl£&3fK£1*ft£J£3MHf±, #;£O0*mPgrJf o-9-y^-?- >olf 

fJlE3:*£j&#JiSti . HulE#^OP^ tb pgJf ^ y ;i> - f- > offiftR t fgy y /u —f - y K m 

KfE«OtMi*£l£yny9A 0 
[ 0 2 9 2 ] 

(#IE3) HuiE^:#M^iii(±. ■y-zr^-j-xDHfrmmmzntL. ^y^-y y<?>£ 
utr £ y y ^ - y y <Dwmmm izws-t £ yj Kf^-r * fo^on* ant^ni £ ^h^a 

[ 0 2 9 3 ] 

(#iE4) HuiEAm^'ft«^if#^^¥Jii(i^ i.n&zkft 
HuiE^am^'it $R£j£3MGi (± , n y 9 a o^m « it n y n y 9 a o^m * # * n m tz 
m tttwzn&^mit . /n7*7A n mmm. c^/7a £ mii-^t -c y n y 9 

[0 2 9 4 ] 

(#IE5) BuIE5:#M^)ii{±, ^L7t7°D^7Att*«co^f^c7)ji®tzfijffl#^ i o 
ft£ 3 ^ y h ^^^ci"4 ^ > v \ mwn^m t i 

Myo^7A 0 

[0 2 9 5] 

07*07*7^ «E£1W$ £ 4 7° n y v A m^ffi m*k!&^M t , 

hu IE"/ n y 7 A «5?1f «^JS^JK K <fc •) £l£ $ n y n y 9 A fKSflttt** <b B K 

m IE y n y 9 A «ES jt^fifc^ JK (:iD4«$fit^D75A *9E^£ £ Jfl v » Tift IE y - J* 
7° a y 9 A <£> y n y 9 A £ 4 7° n y y A 
SrS<bK=ry e x.-?izm:ft2*t2>Z\t$:!$Wit-t2>ttmi > 2 £ fc»± 4 KffilftOtfctt 

[0 2 9 6] 

(#IE7) «rlByny9A«5H!ia^*#J«»±, HtjfEy-^yn^^AH'g-^ti^f-"-^ 

triEy - x y d y 9 a & Jc^mmm* irfEr--- * *5uk^#jkh «t o $ 

m*m^xzk®&zkiz±^xmu7v77^m^mmz±j&^zik®&m^mk 
* n > tr * - 9 Knn z*t2>z\t*!$m.k-tz>mz6 nfEmo-tt^*^^ y □ y 9 a 0 

[0 2 9 7] 

(ftiE 8 ) y 9- v 3 y|E5E WIStrfEm Ztitzs* v ^ v a y|Ei£^ h /< y f- v 3 y 

tsya y^ r- y yo x&tim mzm&'t & * ? ? yxtaum mmta^m t . 
friE^y y ■fxmtfmnmm^mKX oimj^^g^f? y^Am^it^^^ 

^xm/<y * v a y^OA^Jlf «t tFa^ttffRSr^jgi-S 3 yAffi*flHM#3fe# 
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£ iBTJ 1" £ v a -77. f y 7*£ #5e L „ #;e L v 3 y* J* x y 7 s -?? WtfJ $nsyn/5A 
<7>1f$R «r m ffi -t & 7° n y- 9 A If ffi #fflS t , 

IE n 7 9 A If ffi ¥ JH «fc ffl m $ ft y n ^* 7 A <7) If $g ffi v > r str IE / < ? -f - S> 3 y 
£S<bKn>fcfi-* JC^tf $ « - t £ # ft t ■* -2. ftfE K 2ifcli4 HfE«<7>tt# 
[0 2 9 8] 
MlSjl»««f^J«¥JWt, 

[ 0 2 9 91 

0) iuiesM^*#(±, mm 1 7 u ?• 7 a t<Dm<Dmmzmirz> mm* 
Mtimmm&mmftj&^mK x *)vef&ztizmmm&mmu mmt -fur? Atom 

x <o £ ft tz a m tittMi&m m. t * v - v l , ® ® t y n y-- ? a t * y n 

y* 9 A O Am7J £ ^ - v L T - yilfi £ fl^fc"t 47- v3MS iHKa'/lfa-^ 

H M -7° d y* 9 A t <D m & is X V s m. 7 n 7 9 A CD A ffi 7J £ v - vL El M £ ^ 1" <& £ <h 
*!|#ftfc1-Sf*3E9 CietOftttf4)t7n7*7Ao 
[0 3 0 0] 

(#121 1) V-^.7*n^9 A.*»*fLfftai»S:^JS"t*tt*ll»^7 f n^7A«:SB» 

l a > e - * t^^^c 19 or «g * e»«e#-c* o *c , 

frtEV-^ 7*n y** 9 A S , ilfLtiV-7x7'o 7*7A©yn y"*9 A0^tB#ii t x- * A 

HulE^s^tit «t 0 ^js$nfc«La«5?«**fflv»r«raEy-xy.D y-9 

A <D "/ O y* 7 A tfc*£# £ ^^-T * £#£J&^JH t 

£ rr > fcf jl - y H Hfr * * * ft«l*^ft 7" n ^* 9 A £ fBft L >t i t * Jfipft * 3 > tT 
a - 9 if *B •) irriB&IEftaEflto 
[0 3 0 1 ] 

(#IB1 2) v-X7 , o77A*itUftit^4it^ft«t4Siit*ot, 

HUfE V -77U7*7A £M*f L t|V -77 , D 7 *7A©7"n 7 ' 9 A Of ifcftit t T"*— 9 A 

m7jt *Ha^»tfcAm*ft*at«#*^j«i-*xm*#«jtfli*^js#gfc, 

H&fEAffiTJttfllitlf «^*#gl:»c S iifc Affi*#«flt*** s <^ -SBOlf 

m L T liiffE y - x 7°n y 9 a © ^S^^lf W. *$L$L-fZ> &mM&ftfgi$LlS&WL t , 

«r«xfcifc«:#ftk"r* tt«#M^®o 
[0 3 0 2] 

(#IE1 3) y - 7> 7*n 7*7 A *M LTttftt^Mt-SftifMM-C^o "C, 
fI27-77 o n7*7A^MLtiV-77n7*7A«7'n^7A0ftllMi:f-3'A 
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Titi IB Aft *#flt iitif #£#1*1 muttMmmmfr h -SBoit m z m 

& l tbuie v - x 7 0 n ^* 7 a (D^mm^mm £±$.1-% ^mmmm t , 

a <d 7° n if v a £ & -xm^nm. t 

[0 3 0 3] 
[0 3 0 4 ] 

[n 1 1 *nmm i cf^ftif^t^^^^tiii/o ^it'*4o 
[@2] $ jgffl m g&a*ja m -r * ^ r ^ - > of as <^>« it * tzLw-t a tz <r>mm a-c* 

[B3] it ^ieit^^iEit -r a :/ >u - ^ -r- * « it <o -en & 

1T?£>& 0 

[15] 03 n^Lfcufm&tt'j * ho^-^tt j£o-#j&^i-i-^&&o 
[16] 13 k^l^a^iu^ 1 ; * h<a7*-*«ito-tt&jjrrig-T?**o 

[[17] Mm^«^7&^^i-^M«^1WIR^IfeB^i-^/i^^I^0^[lT^^o 
[H8] K*a* > b£j&gM ? £Jc1-&7*n?'9 Atfrlf #0— ^^^fi^^o 

[19] m^m^m^x^^^^-^ymm^^m^xzf^i^m^mtiimzx 

■V- b T?*£o 

[Ull] ««-Atti*T*-^IWit^BEffl5U i£Am^tf#0^7^-^1f$g|E1f 

[HI 2] fei^Mi: J: 4^IttI4ttIo®I^)H^^t 7 n - f t - h 

. "C & <2> o 

[113] *^S60I 2 ^ > hit*^tS/:*O|ii§§@T^S 0 

[0 14] **iS«2tc«4ft«»^J«MOfl|JiRS:^-r*S6^ny^H-c*4 0 

[115] ^ > HE&MM'J * h Kitfe-f 4 Or'-^^itO— 

[116-1] 3^ > MEiE^it^WJS-t-^^ny^^^ ©f-^i^- ®l£^-f-l 

[116-2] a > > MBi6«*fc*tJES1-* ^n^f >f 

o r-* - * ft it to - ft £ ^ 1" 1 -C ab & o 

[117] H14»:*Lfc3^'/ hlEArtM*«^«!3¥H*^1- 7 n h 

_[1 1 8] Kv- h ^fflwfc7'D^7Attit03^ > HE&flitcO — 0fl£ 

[11 9] K->- b *m^tzzfuy? Aftiton^ > ME*««^W(S-*- 

^yn/^f^ coy*- ^WitO— W^^fifJblio 

[12 0] ^^1/7 K->-bS:fflv^yD^5Aftttt03>>HBj$f« (*Sifc<7> 

[12 1] M#itmni3tt4 3> > M2iii*^taf*-5o 

[12 2] 12 1 fc^Lfc&3«»Hfc*ms&3> > MBa**OteflHf ft-f- ^ 
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[02 4] 7'n^7A|[I4)tll5<?)it^^tM7"n y *0-C&& o 
[025-1] ^n^7A V-X0iJ^^-f m-e^)-5>o 

[02 5-21 02 5-1 ic^Lfc^n^A V -*f&J^<b£j&£ 7>n ^ A * 
lflHt«*^-*-0-C*;&o 

[02 61 r-*-^om^Jg<7)^«D— w^$t@-c*^o 

[02 71 ^n^9Aip|II«#R^Sfcffl^^JC#Jni§*i-&M3?KW— «*^i-0-C* 

-2) o 

[02 8] Xf-F^> F<7)IIS^i(7)-^J^^tliT^I)o 

[02 91 -/n^v A4«raif#0^x- y Y<D9 riZttlMZti2>mm&<D—MZ 

[030] i t&mmM<otmMftzmwi-&fz&<Dmm~?$)2> 0 

[03 1] n*flf|5^hs!)IiyD77Ai:©^>^7x-^ (I/F) £ttc 
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[125-1] 



MAIN 

MAIN-START. 



SECTION. 



MOVE 0 TO W-ERR-FLAG. 
IF IN-CODE NOT = 103 

GO TO NEXT -DATA-READ 
END- IF. 

PERFORM MASTER -MODI FY-SECT. 
IF W-ERR-FLAG NOT = 0 

GO TO MA IN -END 
END- IF. 

NEXT-DATA-READ. 

PERFORM FILE -READ-SECT. 



MAIN-END. 
EXIT. 
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025-1 CTvLf^n^Av-X^bii 



< section name="MAIN"> 

paragraph name="MAIN - START"> 
<sequences num="4"> 
<move> 

<ref><constant value="0" type="int"/X/ref> 
<def><var name="W -ERR- FLAG"/X/def> 
</move> 
<if> 

<cond i t i onXexpr ess i on> 
<var name="IN-C0DE"/> 
<coroparison_operator name="N0T ="/> 
<constant value="103" type="int"/> 
</express i on></cond i t i on> 
<then> 

Sequences num="1"> 
<goto> 

<target type="paragraph~ 

name="NEXT - DATA - READ" 
sect i on_name="MA I N"/> 

</goto> 
</sequences> 
</then> 
</if> 
<perform__external> 

<ta rget type="sect i on" name="MASTER -MODIFY- SECT"/> 
</per f orm__externa I > 
<if> 

<cond i t i onXexpr ess i on> 
<var name="W -ERR- FLAG"/> 
<comparison_operator name="N0T ="/> 
<f igurative.constant name="ZER0"/> 
</ express i onX/cond i t i on> 
<then> 

<sequences num=~0 
<goto> 

<target type="paragraph~ 
name="MAIN - END" 
sect i on_name="MA I N"/> 

</goto> 
</sequences> 
</then> 
</if> 
</sequences> 
</paragraph> 

paragraph name="NEXT -DATA- READ" > 
<sequences nuro="1"> 
<perf orm_exter na I > 

<target type="section" name="FILE -READ- SECT V> 
</perform_external> 
</sequences> 
</paragraph> 

<paragraph name="MAIN -END"> 
<sequences num="1"> 

<exit_sentence/> 
</sequences> 
</paragraph> 
</section> 
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^ISDATAKDa^ <var name="DATA1"/> 

ml St *f*tt <va r name="DATA1 " ;data_pr i or i ty="1 ';/> 

i i 
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[02 9] 



MOVE 0 TO DATA1.— 



KX%<7>mb DATA1 



<move> 
<ref> 

<constant value="0" type=" int"/> 
</ref> 
<def> 

<var name="DATA1" data_prior ity="1"/> 
</def> 
</move> 



<move !statement_pr ior ity=2l"^ 
<ref> J 

<constant value="0" type=" int"/> 
</ref> 
<def> 

<var name="DATA1" data_pr ior ity="1"/> 
</def> 
</move> 
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PROGRAMS=ARRANGE_P 1, 
ARRANGE_P2, 
ARRANGE_A 1 , 
ARRANGE A2 



s 
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N 

N 



ARRANGE PI 



ARRANGE P2 
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ARRANGEP2 


220 


ARRANGE_P 1 
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| 156 


ARRANGE A2 
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■^□^A=S: AR PI 


5Q:Jj§4a : READ-UNTIL (D"£t.&) 




SftmS^-: 100 





mm-. 

READ^CZ)7W;U$l7^a>5ftSA^ UNTIL ^#<D^5l^—SC 
L/Cl^S*^ UNTIL <r>^k^Z?T^()^(Om)^-Q\[Z.m.^ 



«: 

READ INF AT END MOVE "END" TO FLAG . 
PERFORM ~ UNTIL FLAG = "END". 

i 

READ INF. 

PERFORM ~ UNTIL AT FILE END INF. 



<at file end>$<f&mm<D*PX*i3LmA-?Z>o 
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T^P^A^ : AR_P2 




mm. mm 


£5fcJg#-«t: 200 





mm-. 



PERFORM READ -SUB. 

READ- SUB SECTION. 
READ INF . 

EXIT. 



READ INF. 



ailEiff 2 003-3105314 



&m 2003-355695 ^- V : 34/ 

3 3-3] 



^j^-rs(-e<03) 



Zfaf^J+Z: AR_P3 






«5fcJt#-^: 300 





mm 3i a « axi:i§«^I), fcfc* mail a w ©-r^r 

«: 

MOVE IN-DATA1 TO OUT -DATA1. 
MOVE IN -DATA2 TO OUT -DATA1. 
(IN- DATA K IN-DATA2 INR IwJSU 
OUT0DATAK OUT-DATA2 OUTRld^* - *) 

MOVE INR TO OUTR. 
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3?Q^A£: AR_P4 






SfcJtS-^: 400 





(1 ) statement_priority #"3" lZt£-oXl^$:&ffl®iir&o 
Z<Ot£. nmZ*lZ>*<»*<?<n%t$? <sequence> 0JS1±qt 

(2) £f-. ^<7)<t$. <sequence> <Z)gf£qt<BfiI#O0>i§^ -tft 
£#tMz^V3>. /^<7^^fcli. £M<t3t( IF,EVALUATE, 

t±l^:(EVALUATE) 4>8lJKrr&o 
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-JUf^J+Zi : ARAl 






&ft&m^: 100 





«: . 



READ INF. 

PERFORM SUB 1 UNTIL 3fe#A. 

SUB1 SECTION. 

READ INF. 
EXIT. 



Ml 

LOOP-READ INF UNTIL 3£#A 

END-LOOP-READ 
M2 




<loop_read_file 
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^J^-TEl(^a)2) 



^P^7A* : AR_A2 






^5fc 200 





IN- RECORD .IN - DATA 1 
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"MOVE 0 TO DATA1 . " 

<move statement jar i or i ty =" 1 "> 
<ref> 

<constant value="0" type=" int'7> 
</ref> 
<def> 

<var name="DATA1" data_pr ior ity ="1"/> 
</def> 
</move> 



<move> <re£>~ (l)</ref> <def> ~(2)</def> </move> 

r-(i)^-(2)(c<ftA-r^ 0 j 



<constant va I ue=" ~ (3) " type=" int"/> 

rg&(~(3))j 



<var name="~ (4)"/> 

r^&[~(4)]j 



SIS(O) £ ^&[DATA1] (CftA-T^o 
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< loop_read_f i le > 
<f i I e name=" ~ (1 ) "> 

<record>~ (2)</record> 
</file> 

<until>~ (3)</until> 
<sequences> ~ (4) </sequences> 
</ loop_read_f i le > 

I 

r~(4)J 



<if> 

<cond i t i on> ~ (1 ) </cond i t i on> 
<then><sequence> ~ (2) </sequence></then> 
<e I se><sequence> ~ (3)</sequenceX/e I se> 
</if> 

1 

*,U 3M*~ (1) tf. $LtL?Z>Wi^. UTFSfr^o 
T~(2)J 

tU 3M*~ (l) JftftL&l***« mT^do 

r~(3)j 



<wr i te> 

<f i le name=" ~ (1)"> 
<record> ~ (2)</record> 

</file> 
</write> 

I 

(2) ^r^ou- (i ) i^^ai-ro 
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<perform_internal > 
<condition> 
<varying>~ (1)</varying> 
<varying_from >~ (2)</ varying_from > 
<by>~ (3)</by> 
<unti l>~ (4)</until> 
</condition> 

<sequences> ~ (5) </sequences> 
</ perform_internal > 



l*~ (2) (3)-ToJi-^LTlKo 
r~(5)j 



<move><ref part="on"> ~ (1)</refXdef> ~ (2)</defX/move> 
r~(i)0>-fflj£ -(2) icttA-r«>oJ 



< at_end_f i I e narae=" ~ (1 ) "/> 



< express i on> ~ (1)</expression> 
5£[~(D] 



< compar i son_oper ator name=" ~ (1 ) "/> 
~(l) 

< constant value=" — (1)"/> 
~0) 
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IDENTIFICATION 
PROGRAM- ID. 

AUTHOR. 

ENVIRONMENT 

CONFIGURATION 
SOURCE- COMPUTER. 
OBJECT- COMPUTER. 



DIVISION. 

TESTSAMPLE. 

TARO. YAMADA. 

DIVISION. 

SECTION. 

VIRTUAL/H0ST1. 

VIRTUAL/H0ST1. 



INPUT- OUTPUT 

FILE -CONTROL. 

SELECT INFILE 
SH_ECT OUTFILE 



IN OUT 
SECTION. 



ASSIGN TO INFILE. 
ASSIGN TO OUTFILE. 

DATA DIVISION 



DATA DIVISION. 
FILE SECTION. 



INPUT FILE 



BLOCK 0 RECORDS. 



03 
03 



03 
03 



FD INFILE 
01 IN- RECORD. 

03 MEMBER CODE 
JOB- CODE 
NAME. 

05 NAMEFAMLV 
05 NAMEFIRST 
SEIBETSU 
YUUBINBANGO. 
05 YUBIGCODE 
05 YUSMALLCODE. 
03 TEL 
03 BIRTHDAY. 
05 BD- YEAR 
05 BD- MONTH 
05 BD- DAY 
03 FAMILYDATA. 
05 F- MEMBER 
07 F- TYPE 
07 F -MEMBER - 
07 F-CODE 
03 FILLER 



PIC 9(5). 
PIC 9(3). 

PIC N(16). 
PIC X06). 
PIC 9. 

PIC 9(3). 
PIC 9(4). 
PIC X(14). 

PIC 9(4). 
PIC 9(2). 
PIC 9(2). 

OCCURS 20. 
PIC 9(2). 
F PIC 9. 
PIC 9(5). 
PIC X(25). 



OUTPUT FILE ****** 
FD OUTFILE BLOCK 0 RECORDS. 
01 OUT-RECORD. 

03 OUT- MEMBER CODE PIC 9 (5) . 
03 OUT-F- TYPE PIC 9(2). 

03 OUT-F-MEM- FLAG PIC 9. 
03 OUT-F- CODE PIC 9(5). 

wwww WORKING STORAGE 
WORKING- STORAGE SECTION. 



01 



01 
01 



COUNTER -TABLE. 
03 IN- COUNT 
03 SKIP- COUNT 
03 PROC- COUNT 
03 OUT- COUNT 
I 

BD- FLAG 



PROCEDURE DIVISION 
PROCEDURE DIVISION. 

OPEN INPUT INFILE OUTPUT OUTFILE. 
DISPLAYS ^a^i^-h" UPON CONSOLE. 

PERFORM READ- SECT. 

IF END- FLAG = "END" 

DISPLAY "## — 3fcH3-K£S$«>£l*A,c " UPON CONSOLE 
DISPLAY ~W l7-«7LtLfc. " UPON CONSOLE 

STOP RUN 

END- IF. 

PERFORM MAIN- SECT UNTIL END- FLAG = "END" 



CLOSE INFILE OUTFILE. 
DISPLAY "OtUrtfr-Bt =C" 
DISPLAY "jE««7L*Lfcc " 

STOP RUN. 



OUT- COUNT UPON CONSOLE. 
UPON CONSOLE. 



READ ROUTINE 
READ- SECT SECTION. 
READ INFILE 

AT BID MOVE "END" TO 



NOT AT END 
END-READ. 
READ -SECT- END. 
EXIT. 



ADO 



1 



TO 



END-FLAG 
IN- COUNT 



[2] 



PIC S9(9) 
PIC S9(9) 
PIC S9(9) 
PIC S9(9) 
PIC S9(4). 
PIC X(03) 



VALUE ZERO. 
VALUE ZERO. 
VALUE ZERO. 
VALUE ZERO. 

VALUE SPACE. 



MAIN ROUTINE wwwwwwwwww 
MAIN- SECT SECTION. 

IF FAMILYDATA = ZBIO 

ADD 1 TO SKIP-COUNT 

ELSE 

ADD 1 TO PROC- COUNT 

PERFORM VARYING I FROM 1 BY 1 
UNTIL I > 20 
11 EMBER CODE TO OUT- MEMBERCODE 
F-TYPE(I) TO 



[3] 



MOVE 
MOVE 
MOVE 
HOVE 
WRITE 
ADD 
BID- PERFORM 
END-IF. 



F-HEMBER-FO) TO 



F- CODE(I) 
OUT-RECORD 
1 



TO 



OUT-F -TYPE 
OUT-F -MEM-FLAG 
OUT-F -CODE 



TO OUT-COUNT 



PBiFORH READ-SECT. 

MA IN -SECT- END. 
EXIT. 
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AR_P1 


i 




AR_P2 


i 




AR P3 


1 




ARP4 


i 




AR_A1 


i 




AR_A2 ; 



J 
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< I oop_read_f i I e statement_pr i or i ty ="1 "> 
<file name="INFILE"> 

<record><var name=" I N- RECORD" data_pr i or i ty ="3 VX/record> 
</file> 

<unt i I X at_end_f i I e name=" I NF I LEV></unt i I > 
<sequences qt="2"> 
< i f statement _pr i or i ty ="2"> 
<condition> 
<expression> 

<var name=~IN- RECORD. FAM I LYDATA" data_prior ity=~1~/> 

< compar i son_operator name=~="/> 
<constant va I ue="ZER0V> 

</express i on> 
</condition> 
<e I se> 

<sequences qt=~2~> 

< perform_internal statement_pr ior ity ="1"> 
<condition> 

<vary i ng>< var name=" I " data_pr i or i ty =T/X/vary i ng> 
< varying_from Xconstant value="1" type=" int "/></ vary ing_f rom> 
<byXconstant value="1" type=" i nt "/X/by> 
<until> 

<expression> 
<var name="l" data_pr ior ity =~1V> 
< compar i son_operator nanie="&gt ; "/> 
<constant value="20" type=~ int"/> 
</expression> 
</unti l> 
</condition> 
<sequences qt="2"> 
<move statement_pr i or i ty ="1 "> 

<ref part=~on" Xvar narne=~IN-RECORD" data_pr ior ity =~3"/X/ref> 
<def><var name="0UT- RECORD" datajar ior ity =~2"/X/def> 
</move> 

<wr i te statement_pr i or i ty =T> 
<f i le name="OUTFILE"> 

<record><var name=" OUT- RECORD" data_pr ior ity ="2"/X/record> 
</f ile> 
</write> 
</sequences> 
</ performJnternal> 
</sequences> 
</else> 
</if> 
</sequences> 
</ loop_read_f i le> 
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I TESTSAMPLE.COB 



TESTS AMPLE 





No. 






as 


1. 


INFILE 


INFILE 


COBOL ^t-<;u 


2. 


OUTFILE 


OUTFILE 


COBOL y'T'Ol' 



^T-T iU INFILE 3b^£»IN-RECORD^U3— K£a*&<^ ?:f"OU INFILEO^y*"C« 
r*L. Ife^aS [^SSlN-RECORD.FAMILYDATA=ZERO] jA^ /SltL&l^i^ &~F£*T?o 

FIESfc IN-RECORDtf>— 2&£XSR OUT-RECORDf^ft A-T^o 
U3- K3£8fc OUT-RECORD*^r-<^OUTFILEl-«#ai^"o 

J 

J 
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S411 



S412 




v a 7 x J- y -f TP? tffcU <* ft 3 

am* a 



ls415 




TA^J fcjpjjE I-S418 



No 



S41a 



"J-S419 
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lrcA,T*^5y*37*;W£ 



J-S441 



i . _ Jn . ^S442 

? 

Yes 

if 77 * o> a -h n< hs. — o tc tj 
&3 ? 

Yes 



No 



^-r«y* 3 7^f77*feU<(± 
»Ty*a7*XT?7"<0nilTx *<7>77<** 
A73 LT^-5y*37*7f77 ,: £ 



-S444 




*tl-?tl<7»*37*7T77' 




$ i:»T±^7'Py*7i»i:T5 



x > K 



J-S446 



1 



S44a 



* COy*37*7f 77' #m?tf| 
aH/T^^7*Q7*7A 
£±p7*Q7*7A<t-f 5 



S448 
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///JOB01 JOB 

/ / -J -- 1 - -Jr -itr -Jr ilr J. - fc* ^ ^ ^ ^ ^^k^ ^^^^^^U^^U^^fc^^^U^lf ^ »« ^ ^^^» 

//STEP1 EXEC PGM=PROGA 

//1N01 DD DSN=DENPYO01,DISP=SHR 

//OT01 DD DSN=WORK1,DISP=(NEW,PASS) 

/ / -Jr -ilr -ilr -Jr -Jr ~ J_r -ilr -ilr ilr -ilr ilr -Jr -A~ A* *A~ ~A* ~A~ -A* *A~ *A~ A~A~ *A"A *A* "A* A~A* *A* "A* *A~ ~A* *A~ "A* ~A* *A~ "A - 'A: *A* tA* 
/ / «^^t^^^^<T*"^ > ^*^*^*^*^p^n^'^n^*^r^*^ > ^n^n^r^n ^*^p^r^^^^^p ^ > ^n*^^n*^^ > 

//STEP2 EXEC PGM=SORT 

//SORT1N DD DSN=WORK1,DISP=(OLD,DELETE) 
//SORTOT DD DSN=WORK2,DISP=(NEW.PASS) 

/ / -Jr - Jr 'Jr ilr -Jr~Ji"Jj"iIr*iIi"fli~ «A*^U^^^^k ^ U^U^U^U^U^ U ^U^U^ U ^U^ U^U ^* ^U^U^U jfej lf sl>»«J^«A>^l^<X»»i|^ 

//STEP3 EXEC PGM=PROGB 

//IN01 DD DSN=WORK2.DISP=(OLD.DELETE) 

//OT01 DD DSN=SYUKEI1 ,D1SP(NEW,PASS) 

/ / ilr \lr xlr ilr nir -Jr «^4 > ^A>4>^ > ^^^'A'^ ^ ^^ ' ^^ ^^^^^^ ^^^ ^^^^^^ ^^^ 

//STEP4 EXEC PGM=ENDMSG 
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[A*] 
DENPY01 

SYUKEI1 

pROGAtmmfc^m&mm) progbc m sm^mm) 
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M05000 


Mtiimm =i 


M05010 
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MMm =2 


PG0001 
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PROGRAM- I D PROGA 

PROCEDURE DIVISION i 

PROCEDURE DIVISION. 

OPEN INPUT INFILL 

DISPLAY "## ^P^7AX5-h " UPON CONSOLE. 

PERFORM READ -SECT. 

IF END-FLAG = "END" 

DISPLAYS -0=fcU=l- K£Sgtf>£-frA,o " UPON CONSOLE 
DISPLAY "## x^-JITL^Ufco " UPON CONSOLE 

STOP RUN 

END- IF. 

PERFORM MAIN-SECT UNTIL END -FLAG = "END" 
CLOSE INFILE. 

DISPLAY "Oai*ft» =[" OUT-COUNT "]" UPON CONSOLE. 

DISPLAY "lES&TL^Lfco " UPON CONSOLE. 

STOP RUN. 

READ ROUTINE ************ i nun 

READ -SECT SECTION. 
READ INFILE 
AT END MOVE "END" TO END -FLAG 

NOT AT END ADD 1 TO IN -COUNT 
END-READ. 
READ -SECT-END. 
EXIT. 

MAIN ROUTINE mmm*mm»mmmmmm» 

MAIN-SECT SECTION. 

IF FAMILYDATA = ZERO 

ADD 1 TO SKIP -COUNT 

ELSE 

ADD 1 TO PROC -COUNT 

PERFORM VARYING I FROM 1 BY 1 

UNTIL I > 20 OR F -MEMBER (I) = ZERO 

MOVE MEMBERCODE TO PARA1 -MEMBERCODE 

CALL PROGW USING PARA1 

ADD 1 TO OUT -COUNT 

END-PERFORM 
END- IF. 

PERFORM READ -SECT. 
MA IN -SECT-END. 
EXIT. 
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PROGRAM- ID PR06W 

mw°M^mtt PROCEDURE DIVISION ******* ******* 
PROCEDURE DIVISION USING PARA1. 

OPEN OUTPUT OUTFILE. 

MOVE PARA1 TO OUT -RECORD. 

WRITE OUT -RECORD 

CLOSE OUTFILE. 

STOP RUN. 



READ ROUTINE ******=****=******^ 
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